home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 49
/
Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso
/
-websites-
/
wirenet
/
files
/
updatewirenet.lzx
/
Updates
/
Fetch.body
< prev
next >
Wrap
Text File
|
2011-03-01
|
1KB
|
46 lines
NumSockets = 2 /* The number of sockets for Thor to use */
MaxTries = 5 /* Maximum number of retries */
/* Don't change anything below here */
arg option
if ~show('L','rexxdossupport.library') then
call addlib('rexxdossupport.library',0,-30)
options results
address command
options failat 21
CmdStr = GetVar('Thor/ThorPath')'bin/GetTCP' SystemName 'PUBSCREEN Workbench GETONLY'
MailStr = 'DELETE PASSWORD' Password 'MAILSERVER $MAILSERVER USERNAME $MAILBOX'
NewsStr = 'NEWSSERVER $NEWSSERVER SOCKETS' NumSockets
select
when option = 'MAIL' then CmdStr = CmdStr 'NONEWS' MailStr
when option = 'NEWS' then CmdStr = CmdStr 'NOMAIL' NewsStr
when option = 'ALL' then CmdStr = CmdStr MailStr NewsStr
otherwise ErrorMsg('Usage: Fetch Mail|News|All')
end
do try = 1 to MaxTries
CmdStr
if RC=0 then do
leave try
end
end
if try > MaxTries then ErrorMsg('Failed to get mail after' MaxTries 'attempts')
exit
ErrorMsg: Procedure
parse arg Msg
say
say(Msg)
say
exit
return